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ABSTRACT 

The  documentation  of  a  complete  proto-compiler  consisting  of  a 
syntax  checker  and  an  OS/360  operating  system  interface  for  the 
IBM  System/360  computers  is  presented.   The  system  constitutes  the 
foundation  of  a  translator  writing  system  based  on  the  language  PL360 
and  on  the  SLR(k)  parsing  algorithm.   PL360  provides  all  the  facilities 
of  a  symbolic  machine  language  but  displays  an  ALGOL-like  structure 
for  improved  readability  and  programming  ease.   SLR(k)  parsers  have 
been  shown  to  be  superior  to  those  constructed  using  precedence 
techniques  with  regard  to  the  class  of  acceptable  grammars  and  speed 
of  operation. 
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I.   INTRODUCTION 

The  computer  solution  to  a  problem  is  usually  divided  into  two 
phases:  translation  of  the  source  language  and  execution  of  the 
translated  program.   The  translation  process  is  a  mapping  of  sentences 
from  a  source  language  to  a  target  language  while  maintaining  semantic 
equivalence.   The  target  language  is  usually  a  sequence  of  machine 
instructions  which  directs  the  machine  in  the  solution  of  the  problem. 
The  task  of  writing  a  program  (compiler,  assembler)  to  perform  this 
translation  process  is  generally  long  and  difficult;  thus,  it  has  been 
the  concern  of  researchers  to  automate  as  much  of  the  compiler  writer's 
task  as  possible  through  the  use  of  translator  writing  systems  (TWSs) . 

A  TWS  automates  such  functions  as  scanning  text,  analyzing  syntax, 
synthesizing  code,  and  interacting  with  an  operating  system  in  a 
general  manner  thereby  allowing  the  compiler  writer  to  concentrate  on 
items  unique  to  his  translator. 

The  objective  of  the  research  reported  herein  was  to  develop  a  TWS 
based  upon  the  language  PL360  [Ref.  1]  and  to  implement  the  system  on 
'the  IBM  360/67  computer  at  the  W.  R.  Church  Computer  Center,  Naval 
Postgraduate  School.   This  goal  was  not  completely  achieved  since  the 
system  lacks  a  PL360  program  to  analyze  a  grammar  and  produce  corres- 
ponding tables  required  by  the  SLR(l)  [Ref.  2]  parsing  algorithm. 

However,  the  basis  of  a  TWS  has  been  developed  consisting  of  a  syntax 
checker  upon  which  the  compiler  writer  may  build,  and  an  OS/360 
operating  system  interface  for  the  IBM  System/360. 


The  next  section  of  this  report  contains  a  review  of  two  translator 
writing  systems  and  is  intended  to  provide  the  reader  with  some  helpful 
background  information.   A  description  of  the  PL360  compiler  generator 
is  presented  in  the  final  section. 


II.   BACKGROUND 

This  section  explores  some  concepts  and  principles  of  TWSs  by 
reviewing  two  research  efforts.   An  excellent  paper  by  Feldman  and 
Gries  [Ref .  3]  contains  a  critical  survey  many  such  efforts.   The 
first  system  reported  herein  is  that  of  O'Neil  [Ref.  4]  and  the  second 
is  that  of  McKeeman,  £t  a]^.  [Ref.  5].   These  were  chosen  because  they 
are  representative  of  the  two  general  classes  of  parsing  algorithms: 
goal  oriented  or  top-down  methods  and  bottom-up  methods. 

A.   THE  META  PI  SYSTEM 

The  META  PI  system  is  generally  based  upon  a  model  known  as  META  II 
developed  by  Schorre  [Ref.  6]  and  his  associates  at  UCLA.   It  is  a 
syntax-directed  symbol  processor  which  states  the  parsing  and  trans- 
lation functions  for  a  language  in  a  set  of  BNF-like  (Backus-Naur  Form) 
rules.   These  rules  include  semantic  operations  within  the  syntax 
structure  describing  the  language.   The  basic  parsing  algorithm  is 
simple  top-down,  left-to-right,  with  backup. 

META  PI  statements  contain  three  types  of  elements: 

1.  Syntactic  elements  which  are  used  to  generate 
the  syntax  checker  of  the  user's  compiler. 

2.  Semantic  elements  which  affect  code  synthesis  in 
the  user's  compiler. 

3.  META  syntactic  elements  which  enable  the  user's 
compiler  to  resolve  possible  ambiguities. 

The  user  produces  a  compiler  by  combining  these  three  elements  into 
input  statements. 


The  general  form  for  a  statement  Is: 

LABEL  :=  expression 
The  identifier  to  the  left  of  the  symbol  pair  ":="  is  defined  by  the 
right-hand  expression.   For  example,  the  definition  of  IDENT  is  written: 

IDENT  :=  LETTER$ (LETTER/DIGIT) 
The  operator  "$"  is  a  prefix  iteration  operator  and  indicates  that  what- 
ever follows  may  be  repeated  any  number  of  tim.es  (possibly  zero)  .   The 
META  PI  symbol  "/"  and  the  BNF  symbol  "|"  are  equivalent.   Hence,  the 
above  rule  would  be  interpreted  as:  "an  identifier  is  a  letter  followed 
by  any  number  of  letters  or  digits."  Note  by  the  above  example  that 
unlike  BNF,  nonterminal  symbols  are  not  enclosed  in  broken  brackets. 
Terminal  symbols  are  preceded  and  followed  by  ":",  and  a  "."  indicates 
that  a  system  symbol  follows. 

The  elements  that  comprise  META  PI  statements  are  explained  in 
detail  in  Ref.  4;  however,  their  use  is  illustrated  by  two  examples 
below. 
EXAMPLE  1: 

If  a  user  wished  to  permit  multiple  FORTRAN  statements  on  one  line, 
he  might  issue  the  following  command: 

USERCC  :=  STAT. NOP (. CLAMP )$ STAT 
where  STAT  identifies  the  definition  of  a  FORTRAN  statement.   The 
semantic  command  ".NOP(...)"  produces  the  effect  of  the  semantic  operation 
".CLAMP"  and  has  no  effect  on  the  compiler.   It  is  included  only  to 
complete  the  general  form  of  a  semantic  function,  which  is 

semantic-command (semantic-operations) 
The  operation  ".CLAMP"  directs  the  compiler  to  suppress  backup  in  the 
event  of  an  exit  to  an  error  routine.   Recall  that  "$STAT"  allows  any 
number  of  statements  to  follow. 
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EXAMPLE  2: 

To  define  a  read  statement  equivalent  to  the  BNF  format 
<read  statement>  : :=  READ  <read  list> 
the  user  might  issue  the  following  META  PI  command: 

READ  :=  :READ:  RID  $(:,:  RID)  :;: 
where  RID  identifies  the  definition  of  a  read^list  element.   Note  that 
the  word  "READ",  the  comma,  and  the  semi-colon  will  be  recognized  as 
terminal  symbols  because  they  are  preceded  and  followed  by  the  colon 
mark.   A  syntactically  correct  read  statement  could  thus  be 
READ  <read-list  element>  ,  <read-list  element>  ; 
META  PI  generates  an  encoding  of  the  rule  in  the  user's  compiler 
and  references  it  by  the  unique  identifier.   When  recognition  of  the 
identifier  is  established  as  a  goal  at  compile  time,  the  generated  code 
is  called  and  one  of  three  condition  codes  is  returned: 

1.  True,  the  scanned  input  satisfies  the  rule. 

2.  False,  it  does  not. 

3.  Syntax  error. 

These  three  conditions  describe  the  state  of  the  top-down  parsing 
algorithm  at  any  given  time.   For  example,  assume  the  assignment 
statement 

DOII  =1.5 
is  the  next  input  to  be  scanned.   Note  the  similarity  to  the  DO  state- 
ment 

DO  1  I  ■=  1,5 
which  differs  by  the  occurrence  of  a  comma  instead  of  a  decimal  point. 
Assume  also  that  the  current  goal  of  the  parser  is  STAT  (statement) 
and  that  all  statements  are  either  DO  statements  or  assignment 


statements.   If  the  parser  first  attempts  to  satisfy  the  subgoal  of  a  DO 
statement,  the  condition  code  "false"  is  returned  when  the  symbol  "." 
is  encountered.   The  subgoal  of  an  assignment  statement  is  then  es- 
tablished and  satisfied  when  the  code  "true"  is  returned.   If  the  final 
parse  attempt  had  also  failed,  the  code  "syntax  error"  would  have  been 
returned  indicating  that  STAT  could  not  be  recognized. 

Each  recognition  of  an  identifier  causes  a  routine  in  the  compiler 
to  be  executed  and,  in  most  cases,  machine  code  to  be  generated. 

Compilers  produced  by  META  PI  are  generally  considered  to  be  some- 
what inefficient  but  have  the  advantages  of  ease  of  implementation 
and  the  ability  to  handle  a  large  class  of  languages. 

B.   THE  XPL  COMPILER  GENERATOR  SYSTEM 

In  this  section,  the  principles  of  McKeeman's  compiler  generator 
are  discussed,  concentrating  on  the  parsing  algorithm  component.   The 
system  is  explained  in  detail  in  Ref.  5,  which  is  an  excellant  intro- 
duction to  the  construction  of  TWSs  and  a  user's  manual  for  the  XPL 
programming  language. 

The  parsing  algorithm  is  a  particular  type  of  bottom-up  parser. 
The  distinguishing  feature  of  the  algorithm  is  that  it  does  not  use 
state-of-the-parse  information,  as  top-down  methods  do;  rather,  it 
involves  examining  the  canonical  sentential  form  (each  string  in  a 
canonical  parse)  to  determine  what  unique  parse  step  is  applicable  and 
then  performs  a  substitution. 

McKeeman's  recognizer  is  a  modification  of  Wirth's  [Ref.  7]  pre- 
cedence concept.   A  wider  class  of  grammars  is  acceptable  since  they 
are  not  restricted  to  simple  precedence.   The  mixed-strategy  prece- 
dence (MSP)  algorithm  uses  a  symbol  pair  predicate  in  its  stacking 


decision  function  and  reverts  to  a  bounded  context  of  degree  (2,1) 
predicate  only  in  the  case  of  a  conflict.   The  production  selection 
function  is  bounded  context  of  degree  (1,1);  hence,  the  parser  is  called 
MSP  (2,1;1,1).   Since  most  triples  of  symbols  cannot  occur  in  a  canonical 
parse,  two  symbols  usually  suffice  to  determine  whether  to  accept  the 
next  symbol  in  the  text  and  place  it  on  the  parse  stack  or  to  apply 
a  parse  step  and  reduce  the  top  few  symbols  on  the  parse  stack.   Also, 
the  number  of  different  triples  is  so  large  (over  10,000  for  XPL)  that 
memory  is  wasted  by  tabulating  all  of  them.   Thus,  McKeeman's  concept  of 
MSP  is  a  compromise  using  Wirth's  two-argument  precedences  whenever 
possible  and  switching  to  triples  only  when  necessary. 

The  three  major  programs  of  the  XPL  compiler  generator  system  are 
the  syntax  analyzer,  which  builds  the  tables  required  by  the  MSP 
algorithm;  the  proto-compiler  with  which  the  user  can  produce  a  compiler; 
and  the  XPL  compiler  which  translates  XPL  to  System/360  machine  code. 

The  syntax  analyzer  is  a  program  which  accepts  the  BNF  definition 
of  a  grammar,  determines  whether  the  grammar  is,  in  fact,  MSP  (2,1;1,1), 
constructs  parsing  decision  tables,  and  punches  those  tables  on  cards 
in  the  form  of  XPL  declarations. 

The  proto-compiler  uses  the  cards  produced  by  the  analyzer  and 
functions  as  a  syntax  checker.   The  user  may  build  on  the  proto-compiler 
by  rewriting  the  code  synthesis  routine  to  implement  the  semantics  of 
the  new  language  to  be  compiled,  and  by  altering  the  text-scanning 
routine  to  correctly  interpret  the  terminal  symbols  of  the  new  language. 
When  this  is  done,  each  reduction  in  the  syntax  analysis  causes  the 
code  synthesis  procedure  to  be  invoked.   This  procedure  is  provided 
the  applicable  production  number  so  that  the  appropriate  machine  code 
can  be  generated. 
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The  XPL  compiler  generator  system  allows  the  user  to  construct  com- 
pilers for  languages  described  by  relatively  small  grammars  with  a 
minimum  of  effort. 
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III.   DESCRIPTION  OF  THE  PL360  COMPILER  GENERATOR 

It  was  decided  to  design  a  compiler  generator  system  based  on 
McKeeman's  concepts  but  with  two  fundamental  differences: 

1.  The  system  was  to  be  written  in  the  language  PL360  to  improve 
the  performance  of  resulting  compilers  and  to  provide  a  more 
compatible  interface  to  standard  IBM  software. 

2.  The  parsing  algorithm  would  be  DeRemer's  SLR(l)  [Ref .  2]  to 
increase  the  class  of  acceptable  grammars  and  to  improve  computation 
time. 

A.   PL360 

In  1968,  Wirth  published  a  formal  description  of  PL360  [Ref.  1],  a 
language  designed  specifically  for  the  IBM  System/360.   A  year  later, 
a  compiler  written  by  Wirth,  J.  W.  Wells,  Jr.,  and  E.  Satterthwaite,  Jr, 
was  made  available  through  the  IBM  Contributed  Program  Library  [Ref.  8], 
Several  amendments  to  the  original  language  definition  were  included 
with  the  documentation  issued  with  the  compiler.   Further  extentions 
and  modifications  to  the  language  have  recently  been  carried  out,  most 
notably  by  M.  A.  Malcolm  [Ref.  9].   Malcolm's  PL360  manual  has  incor- 
porated all  changes  to  the  language  definition  and  compiler  description 
made  to  date. 

PL360  is  a  language  that  provides  all  the  facilities  provided  by 
System/360  Assembler  Language  yet  exhibits  an  ALGOL-like  syntax.   It 
was  designed  to  improve  the  readability  of  programs  written  to  take 
advantage  of  specific  capabilities  and  limitations  of  the  System/360. 
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Such  programs  are  defined  by  a  set  of  BNF  rules  and  semantic  explana- 
tions given  in  Ref.  9. 

Some  characteristics  of  the  language  are  illustrated  by  means  of 
examples . 
EXAMPLE  1: 

PROCEDURE  NEXTCHAR(R3) ; 

BEGIN  IF  R5  <  71  THEN  R5  :=  R5  +  1  ELSE 
BEGIN  RO  :=  (aCARD;  READ;  R5  :=  0; 
END; 

IC(R0,CARD(R5)); 
END 
This  procedure  would  be  used  to  insert  the  next  character  of  the  input 
buffer  into  register  RO  (bits  24-31).   Register  R3  contains  the  return 
address  from  this  procedure  so  it  is  important  not  to  alter  its  con- 
tents.  Assume  the  identifier  "CARD"  has  been  previously  declared  to 
be  a  byte  array  of  length  80.   If  register  R5  (the  column  pointer)  is 
not  less  than  71,  then  a  new  card  is  read  by  setting  register  RO  to 
the  address  of  "CARD"  and  calling  procedure  READ.   The  column  pointer 
is  then  initialized  to  zero  and  the  first  character  of  "CARD"  is  in- 
serted into  RO.   If,  however,  R5  is  less  than  71,  it  is  simply  incre- 
mented and  used  as  the  new  index. 
EXAMPLE  2: 

BEGIN  INTEGER  BUCKET; 
IF  FLAG  THEN 
BEGIN  BUCKET  :=  RO;  RO  :=  Rl;  Rl  :=  R2; 

R2  :=  BUCKET; 
END  ELSE 
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BEGIN  BUCKET  :=  R2;  R2  :=  Rl;  Rl  :=  RO; 
RO  :=  BUCKET; 

END; 

RESET (FLAG); 
END 
This  block  exchanges  the  contents  of  registers  RO,  Rl,  and  R2  in  a  way 
which  depends  on  the  value  of  FLAG  (assume  FLAG  has  been  declared  to  be 
a  byte  variable).   If  FLAG  is  true  (i.e.  if  FLAG  =  //FF)  then  the  first 
statement  is  executed  and  the  contents  of  the  registers  are  shifted 
left  with  R2  being  assigned  the  value  of  RO.   If  FLAG  is  not  true  then 
the  second  statement  is  executed.   The  integer  variable  "BUCKET"  is 
used  as  a  temporary  storage  location.   Upon  completion  of  the  IF 
statement,  FLAG  is  set  to  //GO  by  a  function  call  on  RESET. 

Note  the  block  structure  of  the  language  with  its  attendent  scope 
of  variables.  Note  also  the  register  manipulations  and  symbolic  machine 
instructions  (IC  and  RESET)  which  characterize  assembler  language. 

B.   THE  PARSING  ALGORITHM 

DeRemer  defines  a  class  of  context-free  grammars  called  "Simple 
LR(k)"  or  SLR(k)  which  includes  the  simple  precedence  grammars  as 
proper  subsets.   A  method  for  constructing  parsers  for  SLR(k)  grammars 
is  shown  in  Ref.  2;  they  have  been  implemented  by  DeRemer  and  have 
proven  to  be  superior  to  corresponding  MSP  parsers  both  in  the  speed 
of  parser  construction  and  in  the  size  and  speed  of  the  resulting 
parsers . 

For  the  stacking  decision,  the  MSP  algorithm  uses  at  most  the  top 
two  symbols  on  the  parse  stack  and  the  next  symbol  from  the  input  text. 
SLR(k)  parsers  make  the  stacking  decision  based  on  all  the  symbols  in 
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the  parse  stack  plus  k  more  from  the  input  text.   This  is  accomplished 
by  restructuring  the  stack  and  saving  state-of-the-parse  information. 
The  operation  of  the  parser  will  be  illustrated  by  example. 
Consider  a  sample  grammar: 

G  ::=  E 

E  :  :=  E  +  T  I  T 

T  ::=  (E)  |  x 
The  finite  state  machine  represented  in  Fig.  1  parses  sentences 
generated  by  the  sample  grammar.   The  algorithm  is  started  in  state 
0  and  passes  through  a  series  of  states  until  reaching  a  state  with 
no  successor.  The  indicated  rule  is  applied  and  the  parser  is  restarted 
in  state  0.   The  algorithm  terminates  upon  reaching  state  2  and  an  end- 
of-file  mark  is  encountered.   For  example,  when  in  state  1  and  the  sym- 
bol "x"  is  encountered,  apply  the  reduction  T-^x  and  restart;  when  in 


Star 


*-.T  ->  X 


Fig.  1   Finite  State  Machine  for  the  Sample  Grammar 

state  3  and  the  symbol  "("  is  encountered,  stack  the  syrobol  and  enter 
state  4. 

The  SLR(l)  parsing  algorithm  has  been  implemented  in  one  of  the 
procedures  of  the  proto-compiler . 
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C.  THE  PROTO- COMPILER 

The  program  called  "PROTOCOM"  forms  the  basis  of  the  PL360  compiler 
generator  system  (see  Appendix  A  for  the  program  listing) .   It  is 
patterned  after  McKeeman's  proto-  compiler  and  has  the  same  function  and 
basic  structure. 

PROTOCOM  uses  SLR(l)  parsing  tables  obtained  by  manually  translating 
the  XPL  declarations  produced  by  DeRemer's  syntax  analyzer  [Ref .  10] 
into  equivalent  PL360  declarations.   The  output  from  DeRemer's  program 
is  listed  in  Appendix  B.   The  translated  tables  are  referenced  by  the 
algorithm  contained  in  procedure  ANALYZE  to  implement  the  finite  state 
machine  of  a  simple  grammar. 

ANALYZE  calls  on  procedure  PUSHANDREAD  or  procedure  SYNTHESIZE 
based  on  a  decision  to  stack  the  current  symbol  and  read  a  new  one 
or  to  make  a  reduction  and  perform  the  required  semantic  operations. 
Since  code  synthesis  is  not  a  function  of  PROTOCOM,  SYNTHESIZE  exists 
only  to  maintain  flow  of  control  and  indicate  that  its  presence  would 
be  required  in  a  full-scale  compiler. 

Procedure  SCAN,  called  from  either  PUSHANDREAD  or  ANALYZE,  inter- 
prets characters  in  the  card  buffer.  Upon  reaching  the  end  of  a  card 
image,  a  call  on  procedure  GETCARD  causes  a  new  card  to  be  read. 

The  only  other  major  procedure  is  ERROR  which  is  called  from  a 
number  of  other  routines;  it  accounts  for  syntax  errors  and  prints 
diagnostic  messages. 

D.  OPERATING  SYSTEM  INTERFACE 

Assuming  that  the  object  program  resulting  from  a  compilation  of 
PROTOCOM  is  to  be  used  as  a  compiler,  the  problem  of  communicating 
with  an  operating  system  arises.   Since  PL360  object  programs  do  not 
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communicate  directly  with  an  operating  system,  an  interface  program 
must  be  separately  assembled  and  merged  with  the  compiler  by  the 
linkage  editor. 

The  existing  system  uses  such  an  interface  (called  "PLIO")  in  the 
OS/360  operating  system  environment  (see  Appendix  C  for  the  program 
listing) .   It  has  entry  points  to  four  subroutines  which  facilitate 
input  and  output  operations.   The  names  and  specifications  of  these 
subroutines  are  listed  below. 

1.  READ:   transmission  of  a  card  image  record  to  PROTOCOM:  RO 
contains  the  address  of  an  80-byte  buffer  into  which  the  re- 
cord is  to  be  moved;  set  condition  code  to  2  if  end-of-file 
is  encountered,  otherwise  set  to  0. 

2.  WRITE:   transmission  of  a  line  image  record  from  PROTOCOM;  RO 
contains  the  address  of  a  132-byte  output  record. 

3.  PAGE:   insert  the  USASI  control  character  "1"  into  the  first 
position  of  the  print  buffer. 

4.  PUNCH:   transmission  of  a  card  image  from  PROTOCOM;  RO  contains 
the  address  of  an  80-byte  output  record. 

Two  additional  subroutines  would  be  required  in  PLIO  if  PROTOCOM 
is  to  be  built  into  a  compiler:  a  system  initialization  subroutine 
to  decode  any  required  parameter  list,  open  required  data  sets,  obtain 
free  storage,  and  supply  system  identification.   A  system  termination 
subroutine  is  also  necessary  to  release  free  storage  and  close  re- 
quired data  sets.   These  enable  the  operating  system  to  properly  iden- 
tify and  store  the  machine  code  produce  by  the  compiler. 

PROTOCOM  uses  the  data  sets  described  below  and  identified  by  their 
DDNAMEs.   All  data  sets  are  sequential  with  fixed  block  format. 
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1.  SYSIN:   This  data  set  constitutes  the  Input  and  consists  of 
one  or  more  source  programs.   The  logical  record  length  is  80 
bytes. 

2.  SYSOUT:   This  data  set  contains  the  compiler  output 
listing  including  diagnostic  messages.   The  logical  record 
length  is  133  bytes. 

3.  SYSPUNCH:   This  data  set  contains  object  code  (if  any)  produced 
by  the  compiler.   The  logical  record  length  is  80  bytes. 

At  least  one  additional  data  set  would  be  required  in  the  event 
PROTOCOM  is  built  into  a  compiler:  a  direct  access  data  set  to  contain 
object  code  and  closed  with  a  disposition  of  REREAD  for  further  pro- 
cessing, such  as  linkage  editing. 

The  job  control  language  required  to  compile,  linkage  edit,  and 
execute  a  typical  PL360  program  is  listed  in  Appendix  D.   It  is  assumed 
that  the  file  with  DSNAME  S0938.PLLIB  contains  the  PL360  compiler  and 
its  required  interface  routines. 

The  author  believes  PROTOCOM  to  be  free  of  errors.   The  program, 
however,  has  not  been  subjected  to  rigorous  debugging.   Also,  in  the 
interest  of  readability  and  the  lack  of  a  pressing  need,  no  attempt 
has  been  made  to  write  the  most  efficient  proto-compiler  possible. 
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IV.   CONCLUSIONS 

It  is  concluded  that  the  PL360  language  is  well  suited  to  form 
the  basis  of  a  compiler  generator  system  which  is  to  be  implemented 
on  the  IBM  System/360.  It  is  fairly  successful  in  providing  a  tool 
which  is  superior  to  assembly  code  and  in  meeting  the  objectives  of 
readability  and  writability.  The  language  is  not  as  easy  to  use  as 
some  other  high-level  compiler-writing  languages,  such  as  XPL.  The 
execution  speed,  however,  indicates  it  to  be  the  superior  language  in 
systems  and  production  programming  applications. 

It  was  stated  earlier  that  the  compiler  generator  system  described 
in  this   paper  has  not  been  fully  implemented  in  that  it  lacks  a  syntax 
analyzer.   The  method  of  manually  translating  XPL  declarations  produced 
by  DeRemer's  program  into  equivalent  PL360  declarations  is  conceptually 
simple  but  tedious  for  interesting  grammars.   It  would  not  be  a  diffi- 
cult task  to  alter  DeRemer's  program  to  have  it  produce  PL360  de- 
clarations directly.   It  is  recommended  that  an  SLR(l)  analyzer  written 
in  PL360  be  added  to  the  system  to  provide  a  solution  to  this  problem. 
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STITLE 

BEGIN 
COMMENT 


APPENDIX    A 
PROTO-COMPILER    LISTING 

PROTOCOM 

THIS    PROGRAM    IS    A    PROTG-COMPI LER    WRITTEN    IN    PL360. 

THIS    VERSION    OF    PROTOCOM    IS    A    SYNTAX    CHECKER    FOR 
THE    FOLLOWING    GRAMMER: 

<G>    ::=   <E> 


<E>  : :=  <T> 

1  <E>  + 

<T> 

<T>  ::=  <P> 

1  <T>  * 

<P> 

<P>  : :=  X 

COMMENT   ASSUME  THE  FOLLOWING  CARDS  WERE  PUN 
SLR(l)  SYNTAX  ANALYZER; 

INTEGER  NUMTERMINALS  = 
INTEGER  NUMNTS  =  4; 
INTEGER  NUMSYMS  =  11; 

6; 

ARRAY  11  LONG  REAL  V  = 
#C509D9D6D9E2E8D4L, 
#00000000006 D4F6DL, 
#000000000000004EL, 
#OOO000OO0G0O005CL, 
#00000000 000000 E7L, 
#00OOOOOO00OOOOE8L, 
#O0000OOO0C0O0OE9Lt 
#00000000004CC76EL, 
#00000000004CC56EL, 
#00000000004CE36EL, 
# 00000000 004CD76 EL) 

{ 
COMMENT 

COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
;   COMMENT 

"ERRORSYM"; 

"_l_"; 

"  +  ••; 

"X"  ; 
"Y"; 
"Z"; 
"<G>"; 
"<E>"; 
"<T>"; 
"<P>"; 

BY    THE 


COMMENT   THE  DPDA  HAS  8  READ  STATES; 

ARRAY  8  3H0RT  INTEGER  READSTART  =  (#0000S,  #0002S,  #00095, 
#000BS,  #OOODS,  JfOOOFS,  #0016S,  #001DS); 


ARRAY  8  BYTE  RDNUM 
#07X,  #01X); 


=    (#01X,    #07X,    #01X,    #01X,     #01X,    #07X, 


ARRAY  31  BYTE  SYMLIST  =  (#01X, 

#04X,  #05X,  #06X,  #01X,  #00X, 

#00X,  #01X,  #02X,  #03X,  #04X, 

#02X,  #03X,  #04X,  #05X,  #06X, 


#00X,  #00X, 
#02X,  ■" 
#05X, 
#03X, 


....  #01X,  #02X,  #03X, 
#00X,  #03X,  #00X, 
#06X,  #00X,  #01X, 
#00X) ; 


ARRAY  31  SHORT  INTEGER  STATELIST  = 
#06FFS,  #06FFS,  #06FFS,  #0206S, 
#06FFS,  #0105S,  #06FFS,  #0106St 
#06FFS,  #06FFS,  #02065,  #02075, 
#06FFS,  #06FFS,  #02065,  #02075, 


(#01015,  #06FFS,  #06FF5, 
#02075,  #02085,  #02095, 
#06FFS,  #06FF5,  #06FFS, 
#02085,  #06FF5,  #06FF5, 
#02085,  #01065,  #06FFS); 


COMMENT   THE  DPDA  HAS  9  REDUCE  STATES; 

ARRAY  10  BYTE  NUMTOPOP  =  (#00X,  #00X,  #00X,  #02X,  #00X,  #02X 
,  #00X,  #00X,  #00X,  #02X)  ; 
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ARRAY  10  SHORT  INTEGER  REDUCESUCC  =  (#0000S,  #00025,  #03005, 
#03005,  #05005,  #05005,  #05015,  #05015,  #05015,  #07005); 

COMMENT   THE  DPDA  HA5  3  LOOK-AHEAD  5TATE5; 

ARRAY  3  BYTE  LA5YMNUM  =  (#00X,  #00X,  #00X); 

ARRAY  3  5H0RT  INTEGER  SUCC5TATE  =  (#02015,  #02025,  #02035); 

ARRAY  3  5H0RT  INTEGER  FAIL5TATE  =  (#00035,  #00045,  #00075); 

ARRAY  3  REAL  LATABLE  =  ( 

#40000000R  COMMENT  <G>;, 
#60000000R  COMMENT  <E>;, 
#60000000R   COMMENT   <E>;); 

COMMENT   THE  DPDA  HA5  2  LOOK-BACK  5TATE5; 

ARRAY  2  BYTE  LB5TART  =  (#00X,  #02X); 

ARRAY  2  BYTE  LBNUM  =  (#01X,  #01X); 

ARRAY  4  5H0RT  INTEGER  LB5TATE  =  (#01015,  #00005,  #01065, 
#00005)  ; 

ARRAY  4  5H0RT  INTEGER  RE5UME5TATE  =  (#03015,  #03025,  #02055, 
#02045)  ; 

COMMENT   THE  5YMBOL5  ACCE55ING  THE  5TATES; 

ARRAY  8  BYTE  5YMBEF0REREAD  =  ( #00X,  #01X,  #07X,  #08X,  #09X, 
#02X,  #03X,  #09X); 

ARRAY  3  BYTE  SYMBEFORELA  =  (#08X,  #09X,  #09X) ; 

COMMENT   END  OF  CARD5  PUNCHED  BY  THE  5LR(1)  5YNTAX  ANALYZER; 

INTEGER  RESERVEDLIMIT  =  0; 

LONG  REAL  V8  SYN  V(S);   COMMENT   5H0ULD  ALWAYS  BE  "  | _" ; 

ARRAY  30  BYTE  ALPHABET  =  ( "ABCDEFGHIJKLMN0PQR5TUVWX7Z_$a#" ) ; 

COMMENT   DECLARATIONS  FOR  THE  SCANNER: 

TOKEN  IS  THE  INDEX  INTO  THE  VOCABULARY  V()  OF  THE 
LAST  SYMBOL  SCANNED,  CP  IS  THE  POINTER  TO  THE  LAST 
CHARACTER  SCANNED  IN  THE  CARD  IMAGE,  BCD  IS  THE 
LAST  SYMBOL  SCANNED; 

COMMENT   NUMBERVALUE  CONTAINS  THE  NUMERIC  VALUE  OF  THE  LAST 

CONSTANT  SCANNED; 
INTEGER  TOKEN  =  1,  PRODNUM,  NUMBERVALUE,  SP; 
INTEGER  REGISTER  CP  SYN  R8 ; 
LONG  REAL  BCD; 
INTEGER  BCDHIGH  SYN  BCD(O); 
INTEGER  BCDLOW  SYN  BCD{4); 

ARRAY  80  BYTE  CBUF;   COMMENT   CARD  BUFFER; 
COMMENT   EXITFLAG  IS  USED  TO  INDICATE  END  OF  COMPILING; 
BYTE  LISTFLAG,  ENDIT,  EXITFLAG  =  #00X; 

COMMENT   XR  IS  THE  ERROR  ROUTINE  PARAMETER  REGISTER; 
INTEGER  REGISTER  XR  SYN  R5 ; 

SHORT  INTEGER  ERRCOUNT  =  OS,  CARDCOUNT  =  OS; 
INTEGER  EOFILE,  NUMBER,  IDENT,  DIVIDE; 

LONG  REAL  CONWORK;   COMMENT   USED  TO  CONVERT  TO  DECIMAL; 
BYTE  TRUE  =  #FFXt  FALSE  =  #00X ; 
SHORT  INTEGER  PREV lOUS ERROR,  ERRLIMIT  =  505; 
ARRAY  132  BYTE  BLANK  =  132 ("  "); 
ARRAY  132  BYTE  WBUF;   COMMENT   WRITE  BUFFER; 
INTEGER  MASK  =  #000000FF; 
INTEGER  MASK7  =  #00000007; 
INTEGER  MASKFFFF  =  fiOQOOfFff; 
INTEGER  BLANKMASK  =  #40404040; 
INTEGER  MASKl  =  #00000001; 
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INTEGER  MASKFFOO  =  #OOOOFFOO; 

LONG  REAL  VR3; 

INTEGER  VR3HI  SYN  VR3(0); 

INTEGER  VR3L0W  SYN  VR3(4); 

ARRAY  256  BYTE  CHARTYPE  =  256(1); 

ARRAY  256  BYTE  NOTLETTERORDIGI T  =  256(1); 

ARRAY  256  INTEGER  TX ; 

INTEGER  TEXTLIMIT  =  71;   COMMENT   SCAN  TO  CBUF (T EXTL IM IT ) ; 

ARRAY  10  BYTE  NUMS  =  ("0123456789"); 

FUNCTION  SETZ0NE(8,#96F0);   COMMENT   FUNCTION  TO  SET  ZONE; 

PROCEDURE  ERR0R(R4J;   COMMENT   PRINTS  AND  ACCOUNTS  FOR  ALL 

ERROR  MESSAGES; 
BEGIN  INTEGER  SAVE4; 

SAVE4  :=  R4;  RO  :=  ERRCOUNT  +  1;  ERRCOUNT  :=  RO; 

IF  RO  >  ERRLIMIT  THEN  GOTO  X; 

COMMENT   IF  LISTING  IS  SUPPRESSED,  FORCE  PRINTING  OF 

THE  CARD  BUFFER; 
IF  -.LISTFLAG  THEN 
BEGIN 

RO  :=  CARDCOUNT  +  1;  CVO (RO, CONWORK ) ; 
UNPK(3,7,WBUF(45) ,CONWORK) ;  S ETZONE ( WBU F(48 ) ) ; 
MVC(79,WBUF(52) ,CBUF) ;  RO  :=  SWBUF;  WRITE; 
MVC(131,WBUF, BLANK) ; 
END: 

MVC(9,WBUF,"***    ERROR,"); 
CASE    XR    OF 
BEGIN 

NULL;       COMMENT      CASE    1    NOT    USED; 
BEGIN 

Rl    :=    aWBUF(CP+52) ;     MVI("|",B1); 
MVC(17,WBUF( 11), "ILLEGAL    CHARACTER:")  ; 
END; 
BEGIN 

MVC( 15, WBUF(ll), "STACK    OVERFLOW.    "); 
SET( EXITFLAG) ; 
END; 
BEGIN 

MVC(19,WBUF(11), "ILLEGAL    SYMBOL    PAIR:"); 
END; 
BEGIN 

MVC(24,W6UF(11), "PROGRAM    ENDS    PREMATURELY."); 
SET(EXITFLAG); 
END; 
END; 

RO    :=    aWBUF;     WRITE;     MVC(131 ,WBUF, BLANK) ; 
IF    EXITFLAG    THEN    GOTO    EXIT; 
RO    :=    ERRCOUNT; 
IF    RO    >    1    THEN 
BEGIN 

MVC(34,WBUF,"***    LAST    ERROR    DETECTED    ON    LINE       "); 
RO    :=    PREVIQUSERROR;     CVD(R0, CONWORK); 
UNPK(3,7,WBUF(33) , CONWORK) ;     SETZONE ( WBUF ( 36) ); 
MVC(4,WBUF(37),".    ***");    RO    :=    aWBUF;    WRITE; 
MVC(41, WBUF, BLANK) ; 
END; 

RO    :=    CARDCOUNT;    PREVIOUSERROR    :=    RO; 
RO    :=    ERRCOUNT; 
IF    RO    =    ERRLIMIT    THEN 
BEGIN 

MVC(20,WBUF,"***    TOO    MANY    ERRORS,    "); 
MVC(21,WBUF120) ,"    CHECKING    ABORTED.    ***"); 
END; 
X:  R4    :=    SAVE4; 

END; 

PROCEDURE  GETCARD(R4); 

COMMENT   DOES  ALL  CARD  READING  AND  LISTING; 
BEGIN  INTEGER  SAVE4; 

SAVE4  :=  R4;  RO  :=  aCBUF;  READ; 
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IF  -y=    THEN   COMMENT   SIGNAL  FOR  EOF; 
BEGIN 

SETCENDIT);  MVC ( 79, CBUF , BLANK ) ; 

MVC(10,CBUF,"E0F;END;E0F"); 
END; 

COMMENT   CARDCOUNT  PRINTED  ON  LISTING; 
RO  :=  CARDCOUNT  +  1;  CARDCOUNT  :=  RO; 
IF  LISTFLAG  THEN 
BEGIN 

CVOIRO,CONVJORK)  ;  UNPK  (3,  7,  W  BUF(  45  ) ,  CONWORK  )  ; 

SETZ0NE(WBUF(48));  MVC ( 79 , WBUF(52 ) , CBUF) ; 

RO  :=  aWBUF;  WRITE;  MVC( 131, WBUF, BLANK) ; 
END; 

CP  :=  0;  R4  :=  SAVE4; 
END; 

PROCEDURE  SCAN(R4); 

BEGIN  INTEGER  SAVE4,  SI,  S2; 

SAVE4  :=  R4;  RO  :=  0;  NUMBERVALUE  :=  RO; 

WHILE  TRUE  DO 

BEGIN 

IF  CP  >  TEXTLIMIT  THEN  GETCARD  ELSE 

BEGIN   COMMENT   BRANCH  ON  NEXT  CHARACTER  IN  CBUF; 
IC(R1,CBUF(CP) ) ;  Rl  :=  Rl  AND  MASK; 
ICIR2,CHARTYPE(R1} ) ;  R2  :=  R2  AND  MASK; 
IF  R2  <  10  THEN  CASE  R2  OF 
BEGIN 

COMMENT   CASE  1:  ILLEGAL  CHARACTER; 
BEGIN 

IF  ENDIT  THEN 
BEGIN 

Rl  :=  1;  TOKEN  :=  Rl;  GOTO  LI; 
END; 

XR  :=  2;  ERROR; 
END; 

COMMENT   CASE  2:  BLANK; 
BEGIN   COMMENT   SKIP  OVER  BLANKS; 
CP  1=  CP  +  1* 
IF  CP  <=  TEXTLIMIT  THEN 
BEGIN 

IC(R2,CBUF{CP) ) ;  R2  :=  R2  AND  MASK; 
WHILE  R2  =  64  AND  CP  <  TEXTLIMIT  DO 
BEGIN 

CP  :=  CP  +  l;  IC(R2,CBUF(CP)); 
END; 
END; 

IF  CP  -^=  TEXTLIMIT  THEN  CP  :=  CP  -  1; 
END; 

COMMENT   CASES  3  &  4  NOT  USED; 
NULL; 
NULL; 

COMMENT   CASE  5:  A  LETTER; 
BEGIN 

SI  :=  CP;  Rl  :=  0;  S2  :=  Rl; 

F45  :=  OL;  BCD  :=  F45; 

WHILE  TRUE  DO   COMMENT  UNTIL  END  OF  IDENT; 

BEGIN 

FOR    CP    :=    CP    STEP    1    UNTIL    TEXTLIMIT    DO 
BEGIN 

IC(R1,CBUF(CP) );    Rl    :=    Rl    AND    MASK; 
IC(R2,N0TLETTER0RDIGIT(R1) ) ; 
R2    :=    R2    AND    MASK; 
IF    R2    =    1    THEN 

BEGIN      COMMENT       END    OF    IDENTIFIER; 
IF    CP    >    SI    THEN    R2    :=    CP    -    SI 
ELSE    R2    :=    TEXTLIMIT    -    SI    +    CP 
+    1;    Rl    :=    0;    SI    :=    Rl; 
CP    J=    CP    ~    1* 
COMMENT       R2     IS    LENGTH    OF     IDENT; 
R5    :=    NUMTERMINALS    SHLL    3; 
IF    R2    <=    RESERVEDLIMIT    THEN 

FOR    Rl     :=    8    STEP    8    UNTIL    R5    DO 
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BEGIN 

F67  :=  V(R1) ; 

IF  F67  =  BCD  THEN 

BEGIN 

Rl  :=  Rl  SHRL  3; 
TOKEN  :=  Rl;  GOTO  LI; 
END; 
END; 
COMMENT   MUST  BE  <IDENT>; 

Rl  :=  IDENT;  TOKEN  :=  Rl; 
GOTO  Ll; 
END  ELSE   COMMENT   LETTER  OR  DIGIT; 
BEGIN 

R2  :=  S2  +  1;  S2  :=  R2; 

IF  R2  <=  4  THEN 

BEGIN 

R4  :=  R4  -  R4;  BCDHIGH  :=  R4; 
IC(R4,CBUF(CP) ) ; 
R4  :=  R4  AND  MASK; 
R5  :=  BCDLOW  SHLL  8  OR  R4; 
BCDLOW  :=  R5 ; 
END  ELSE 
BEGIN 

IC(R4,CBUF(CP) ); 
R4  :=  R4  AND  MASK; 
R5  :=  BCDHIGH  SHLL  8  OR  R4; 
BCDHIGH  :=  R5; 
END; 
END; 
END; 
COMMENT   END  OF  CARD; 

GETCARD; 
END; 
END; 

COMMENT   CASE  6:  DIGIT; 
BEGIN 

Rl  :=  NUMBER;  TOKEN  :=  Rl;  Rl  :=  Rl  -  Rl; 
WHILE  TRUE  DO   COMMENT   UNTIL  GOTO  Ll; 
BEGIN 

FOR  CP  :=  CP  STEP  1  UNTIL  TEXTLIMIT  DO 
BEGIN 

IC(R1,CBUF(CP) ); 
IF  Rl  <  240  THEN  GOTO  Ll; 
R3  :=  NUMBERVALUE  *  10  +  Rl  -  240; 
END; 

GETCARD; 
END; 
END; 

COMMENT   CASE  7:  /; 
BEGIN 

Rl  :=  DIVIDE;  TOKEN  :=  Rl;  CP  :=  CP  +  1; 
GOTO  Ll; 
END; 

COMMENT   CASE  8:  SPECIAL  CHARACTER; 
BEGIN 

Rl  :=  Rl  SHLL  2;  R2  :=  TX(Rl); 
TOKEN  :=  R2;  CP  :=  CP  +  1;  GOTO  Ll; 
END; 

COMMENT   CASE  9:  END  OF  FILE  MARK,"."; 
BEGIN 

Rl  :=  1;  TOKEN  :=  Rl;  GOTO  Ll; 
END; 
END;   COMMENT   END  OF  CASE  ON  CHARTYPE; 
CP  :=  CP  +  1; 
END; 
END; 
Ll:    R4  :=  SAVE4; 
END; 

PROCEDURE  PR1NTIME(R6) ;  NULL; 

COMMENT   THIS  PROCEDURE  SHOULD  GET  TIME  OF  DAY  AND  INSERT 
INTO  WBUF( 18)-WBUr( 22) ,  FORMAT  "13:37"; 
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PROCEDURE  PRINTDATE(R6);  NULL; 
COMMENT   THIS  PROCEDURE  SHOULD 
INTO  WBUF(9J-WBUF(14), 


GET  TODAY'S  DATE  AND  INSERT 
FORMAT  "72.153"; 


PROCEDURE  INITIALIZE(R4) ; 
COMMENT   THIS  PROCEDURE  SETS  VAR 
PROGRAM.   IT  SHOULD  ALS 
DAY  TO  BE  USED  IN  PROCE 
BEGIN  INTEGER  SAVE4; 

SAVE4  :=  R4;  MVC(I3I,WBUF, 
MVC(34,WBUF,"  REPLACE  TH 
MVC{32,WBUF(36),"Y0UR  OWN 
WRITE;  MVC(68, WBUF, BLANK)  ; 
PRINTIME;  MVC(8, WBUF,"TODA 
MVC(0,WBUF(16) ,"3") ; 
WRITE;  MVC(131, WBUF, BLANK) 
R5  :=  NUMTERMINALS ; 
COMMENT  SEARCH  THE  TERMIN 
"<NUMBER>",  "<IDE 


lABLES  TO  BE  USED  IN  THE 
0  SAVE  THE  CURRENT  TIME  OF 
DURE  SUMMARIZE; 

BLANK);  RO  :=  aWBUF; 

IS  HEADING  WITH  ONE  OF"); 

—  VERSION  OF  JUNE  1972."); 

WRITE;  WRITE;  PRINTDATE; 
Y  IS  "); 


WRITE;  WRITE; 


AL 


SYMBOLS  FOR 
",  AND  "/"; 
=  1  STEP  1  UNTIL  R5  DO 


_", 


FOR  Rl 
BEGIN 

R2  :=  Rl 

IF  F45  = 

IF  F45  = 

IF  F45  = 

IF  F45  = 
END; 

F45  :=  /S^C5D6C6L;   COMMENT 
R3  :=  R3  -  R3;  IC( R3,"  ") ; 
MVI(2,B4);  IC(R3,".");  R4 


SHLL    3;    F45    := 

#6D4F6DL    THEN 
#4CD5E4D4C2C5D 
#4CC9C4C5D5E36 
#61L    THEN    DIVI 


V(R2)  ; 
EOFILE    :=    Rl    ELSE 
96EL    THEN    NUMBER    :=    Rl    ELSE 
EL    THEN    IDENT    :=    Rl    ELSE 
DE    :=    Rl; 

SAME    AS    "EOF";     V8    :=    F45; 
R4    :=    aCHARTYPE(R3) ; 
:=    aCHARTYPE(R3) ;     MVI(9,B4); 


COMMENT       IF    LETTERS    ARE    TO    BE    RECOGNIZED,     INSERT    THE 

FOLLOWING    LOOP.     (NOTE,    SEMICOLONS    ARE    REMOVED 
AVOID    ENDING    THIS    COMMENT). 


TO 


FOR    Rl 

COMMENT 

BEGIN 

R3 

R4 

R4 

R3 
END; 


=    0    STEP    1 

LENGTH    OF 


UNTIL    29 
ALPHABET 


DO 
IS 
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R3    -    R3       IC(R3, ALPHABETCRl) ) 
aCHARTYPE(R3)       MVI(5,B4) 
aN0TLETT£R0RDIGIT(R3)       MVI(0,B4) 
R3    SHLL    2       TX(R3)     :=    Rl 


R3    :=    R3    -    R3; 

COMMENT   SAME  FOR  NUMBERS: 

FOR  Rl  :=  0  STEP  1  UNTIL  9  DO 
BEGIN 

IC(R3,NUMS(R1) )   R4  :=  aCHARTYPE ( R3)   MVI(6,B4) 
R4  :=  aNOTLETTERORDIGIT (R3)   MVI(0,B4) 
END; 


FOR  Rl 
BEGIN 
R2 
IF 
BEG 


END 
BEG 


:=    2    STEP    1    UNTIL    R5    DO 

:=    Rl    SHLL    3;    F45    :=    V(R2); 

F45    <    #FFL    THEN 

IN      COMMENT       SPECIAL    CHARACTER; 

R3    :=    R3    -    R3;    R4    :=    Rl    SHLL    3+7 

IC(R3,V(R4) ) ;     R4    :=    3CHARTYPE ( R3 ) ; 

R3    :=    R3    SHLL    2;     TX( R3)     :=    Rl; 


MVI(8,B4) 


ELSE 

IN 


COMMENT       SET    RESERVEDL I  MI T: 


IF 
IF 
IF 
IF 
IF 
IF 
R3 
IF 


F45 
F45 
F45 
F45 
F45 
F45 
:=  8 
R3  > 


BEGIN 


<  #FFFFL  THEN  R3  :=  2  ELSE 

<  ^FFFFFFL  THEN  R3  :=  3  ELSE 

<  #FFFFFFFFL  THEN  R3  :=  4  ELSE 

<  #FFFFFFFFFFL  THEN  R3  :=  5  ELSE 

<  #FFFFFFFFFFFFL  THEN  R3  :=  6  ELSE 

<  #FFFFFFFFFFFFFFL  THEN  R3  :=  7  ELSE 

RESERVEDLIMIT  THEN 
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R4  :=  Rl  -  R3  +  8;  R5  :=  aV(R4);  CLI("<",B5); 
IF  -1=  THEN  RESERVEDLIMIT  :=  R3; 
END; 
END; 
END; 

CP  :=  TEXTLIMIT  +  1;  MVC (79 , CBUF, BLANK ) ;  Rl  :=  0; 
SP  :=  Rl;  SET(LISTFLAG) ;  RESET ( ENDI T) ;  R4  :=  SAVE4; 
END;   COMMENT   END  INITIALIZE; 

PROCEDURE  EMIT(R4);  NULL; 

COMMENT   THIS  PROCEDURE  HAS  THE  RESPONSIBILITY  OF  SETTING 

THE  NEXT  ELEMENT  OF  THE  CODE  ARRAY  TO  THE  OPCODE 

DETERMINED  BY  PROCEDURE  SYNTHESIZE; 

PROCEDURE  L00KUP(R4);  NULL; 

COMMENT   THIS  PROCEDURE  LOOKS  UP  A  NAME  IN  THE  SYMBOL  TABLE 
AND  ENTERS  IT  IF  NOT  THERE; 

PROCEDURE  SYNTHESIZE(R4) ;  NULL; 

COMMENT   THIS  PROCEDURE  IS  RESPONSIBLE  FOR  THE  SEMANTICS  OF 
THE  COMPILER.   IT  TAKES  THE  FORM  OF  A  LARGE  CASE 
STATEMENT  ON  GLOBAL  VARIABLE  PRODNUM.   ARRIVE  HERE 
FROM  THE  CASE  STATEMENT  IN  PROCEDURE  ANALYZE; 

PROCEDURE  PRINTSUMMARY(R4) ; 

COMMENT   THIS  PROCEDURE  SHOULD  SUBTRACT  CURRENT  TIME  OF  DAY 
WITH  THAT  SAVED  IN  PROCEDURE  INITIALIZE  AND  STORE 
THE  RESULT  IN  WBUF  STARTING  IN  COLUMN  19; 
BEGIN  INTEGER  SAVE4; 
SAVE4  :=  R4; 

MVC(17, WBUF, "TIME  IN  EXECUTION:");  RO  :=  aWBUF;  WRITE; 
MVC(17, WBUF, BLANK) ; 
R4  :=  SAVE4; 
END; 

PROCEDURE  ANALYZE(R4); 

BEGIN  INTEGER  SAVE4,  NEXTSYMBOL; 

ARRAY  75  INTEGER  STATESTACK  =  75(0); 
INTEGER  STATENUM  =  0,  LASYMBOL  =  0; 

PROCEDURE  PUSHANDREAD(R4) ; 
BEGIN  INTEGER  SAVE4; 

SAVE4  :=  R4;  Rl  :=  SP ; 
IF  Rl  <  75  THEN 
BEGIN 

Rl  :=  Rl  +  l;  SP  :=  Rl; 
END  ELSE 
BEGIN 

XR  :=  3;  ERROR;  GOTO  EXIT; 
END; 

Rl  :=  TOKEN;  NEXTSYMBOL  :=  Rl; 
COMMENT   SET  VAR(SP)  TO  BCD  AND  VAL(SP)  TO 

NUMBERVALUE; 
SCAN;  R4  :=  SAVE4; 
END;   COMMENT   END  PUSHANDREAD; 

INTEGER  CYCLECNT  =  0;  SAVE4  :=  R4; 

WHILE  TRUE  DO 

BEGIN 

Rl  :=  CYCLECNT  +  1;  CYCLECNT  :=  Rl; 

Rl  :=  SP  SHLL  2;  R2  :=  STAT£STACK( Rl )  SHRL  8+1; 

CASE  R2  OF 

BEGIN 

COMMENT   CASE  1,  READ  VIA  LINEAR  SEARCH; 
BEGIN 

PUSHANDREAD;     Rl     :=    STATENUM    SHLL    1; 
R2    :=    READSTART(Rl) ;    Rl    :=    Rl    SHRL    1; 
IC(R3,RDNUM(R1) );     R3     :=    R3    AND    MASK; 
R3    :=    R3    +    R2;     R4    :=    NEXTSYMBOL; 
IC(R5,SYMLIST(R2) ) ;    R5     :=    R5    AND    MASK; 
WHILE    R4    -y=    R5    AND    R2    <    R3    DO 
BEGIN 
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R2 
END; 
R2  :  = 


R2  +  l;  IC(R5,SYMLIST(R2) ) ; 


Rl 
R2 
Rl  : 

END; 

COMMENT 

BEGIN 

PUSHANDREAD; 


R2    SHLL    1; 

STATELIST(R2)    AND    MASKFFFF; 

SP    SHLL    2;     STATESTACK{R2)     :=    Rl; 

Rl    AND    MASK;     STATENUM    :=    Rl ; 


CASE    2,    READ    VIA    AN    ARRAY    ACCESS; 


READSTART(Rl)  +  NEXTSYM 
STATELIST(R2)  AND  MASKF 
SP  SHLL  2;  STATESTACKCR 
Rl    AND    MASK;    STATENUM    : 


CASE   3,    REDUCE 


STATENUM;  PROONUM  :=  Rl 

STATENUM;  IC ( R2, NUMTOPO 

R2  AND  MASK;  R3  :=  SP  - 

SHLL  l;  R2  :=  REDUCE 

SHLL  2;  STATESTACKCR 

AND  MASK;  STATENUM  : 


Rl 
SP 
R2 


CASE  4,  LOOK  AHEAD  (ORDINARY); 


TOKEN;  LASYMBOL  :=  Rl; 

Rl  AND  MASK7;  R4  :=  7  - 

STATENUM    SHLL    2    +    R2; 

LATABLE(R5) )  ; 

Rl  AND  MASK  SHRL 

=  1  THEN 


R2 

Rl 
R2 
Rl 
END; 
COMMENT 
BEGIN 
Rl 
Rl 
R2 
Rl 
Rl 
R2 
END; 
COMMENT 
BEGIN 

Rl  :  = 
R3  :  = 
R5  :  = 
IC(R1 
Rl  :  = 
IF  Rl 
BEGIN 

Rl  :  = 
R2  I  = 
END  ELSE 
BEGIN 

Rl  :  = 
R2  :  = 
END; 

R2  :=  R2  AND  MASKFFFF;  Rl 
STATESTACK(Rl)  :=  R2 ;  R2 
STATENUM  :=  R2; 
END; 
COMMENT   CASE  5,  LOOK  AHEAD 

WITH  AN  EMPTY  RIGHT 
BEGIN 
Rl  :  = 
R3  :  = 
R5  :  = 
IC(R1 
Rl  :  = 
IF  Rl 
BEGIN 

Rl  :  = 
R2  :  = 
WHILE 
BEGIN 
R3 
R4 


Rl  :=  STATENUM  SHLL  1; 

BOL  SHLL  1; 

FFF; 

2)  :=  Rl; 

=  Rl; 


;  SYNTHESIZE; 

P(R1) ) ; 

R2;  SP  :=  R3; 
SUCC(Rl) ; 
1)  :=  R2; 
=  R2; 


R2  :=  Rl  SHRL  3; 
R3; 


R4  AND  MASKl; 


STATENUM  SHLL 
SUCCSTATE(Rl) ; 


STATENUM    SHLL 
FAILSTATE(Rl) 


i; 


i; 


:=  SP  SHLL  2; 
=  R2  AND  mask; 


TOKEN;  LASYMBOL  :=  Rl; 
Rl  AND  MASK7;  R4  :=  7  - 
STATENUM  SHLL  2  +  R2; 
LATABLE{R5) ); 
Rl  AND  MASK  SHRL  R4  AND 
=  1  THEN 


(FOR  A  PRODUCTION 
PART) ; 

R2  :=  Rl  SHRL  3; 
R3; 


MASKl; 


SP    SHLL    2; 
STATESTACK(Rl)    SHRL 
R2    =    3    OR    R2    =    4    DO 


8; 


:=    STATESTACK(R1 )    AND    MASK    SHLL     1; 
:=    FAILSTATE(R3) 


STATESTACK(Rl)  :=  R4; 


=  R4  SHRL  8 


R2 

END; 

Rl  :  = 

Rl  :  = 

R2  '  — 
END  ELSE 
BEGIN 

Rl  :  = 

R2    :  = 
END; 
Rl    :=    SP    SHLL    2;     STATESTACK( Rl )     :=    R2 ; 


SP  +  1;  SP  := 
STATENUM  SHLL 
SUCCSTATE(Rl) 


STATENUM    SHLL 
FAILSTATECRl ) 


Rl; 
i; 


i; 
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R2    :=    R2    AND    MASK;    STATENUM    :=    R2 ; 
END; 

COMMENT   CASE  6,  LOOK  BACK; 
BEGIN 

Rl  :=  SP  -  1  SHLL  2;  R2  :=  STATENUM; 
IC(R3»LBSTART(R2J J ;  R3  :=  R3  AND  MASK; 
IC(R4,LBNUM(R2) );  R4  :=  R4  AND  MASK  +  R3; 
R3  :=  R3  SHLL  1;  R5  :=  LBSTATE(R3); 
R6  :=  STATESTACK(Rl);  R3  :=  R3  SHRL  1; 
WHILE  R6  -^=  R5  AND  R3  <  R4  DO 
BEGIN 

R3  :=  R3  +  1  SHLL  1;  R5  :=  LBSTATE(R3); 
R3  :=  R3  SHRL  I; 
END; 

R3  :=  R3  SHLL  I;  Rl  ;=  RE SUMESTATE ( R3} ; 
R2  :=  SP  SHLL  2;  ST AT ESTACK (R2 )  :=  Rl; 
Rl  :=  Rl  AND  MASK;  STATENUM  :=  Rl ; 
END; 

COMMENT   CASE  7,  ERROR; 

BEGIN  INTEGER  PREVERRCYCLE  =  #FFFFFFFF; 
Rl  :=  CYCLECNT  -  2;  CYCLECNT  :=  Rl; 
IF  Rl  -1=  PREVERRCYCLE  THEN 
BEGIN 

PREVERRCYCLE  :=  Rl;  Rl  :=  SP  -  1  SHLL  2; 
R2  :=  STATESTACK(Rl) ; 
IF  R2  <  512  THEN 
BEGIN 

R2  :=  R2  AND  MASK; 
IC(R3,SYMBEF0REREAD(R2) ) ; 
END  ELSE 
BEGIN 

R2  :=  STATENUM;  ICC R3 , SYMBEFGRELA{R2 ) ) ; 
END; 

R3  :=  R3  AND  MASK  SHLL  3; 
F45  :=  V(R3) ;  VR3  :=  F45; 

Rl  :=  VR3L0W  OR  BLANKMASK;  VR3L0W  :=  Rl; 
Rl  :=  VR3HI  OR  BLANKMASK;  VR3HI  :=  Rl ; 
MVC(7,WBUF{32) , VR3) ;  R3  :=  STATENUM; 
IF  R3  =  255  THEN  R3  :=  NEXTSYMBOL 
ELSE  R3  :=  LASYMBOL;  R3  :=  R3  SHLL  3; 
F45  :=  V(R3) ;  VR3  :=  F45; 

Rl  :=  VR3L0W  OR  BLANKMASK;  VR3L0W  :=  Rl; 
Rl  :=  VR3HI  OR  BLANKMASK;  VR3HI  :=  Rl; 
MVC(7, WBUF{41), VR3) ;  XR  :=  4;  ERROR; 
MVC(17, WBUF, "PARTI AL  PARSE  IS:  "); 
RO  :=  aWBUF;  WRITE;  MVC(17, WBUF, BLANK) ; 
R2  :=  SP  -  1  SHLL  2; 
FOR  Rl  :=  8  STEP  4  UNTIL  R2  DO 
BEGIN 

R3  :=  STATESTACKIRI ); 
IF  R3  <  512  THEN 
BEGIN 

R3  :=  R3  AND  MASK; 
IC(R4,SYMBEF0REREAD(R3) ) ; 
END  ELSE 
BEGIN 

R3  :=  R3  AND  MASK; 
IC(R4,SYMBEF0RELA(R3) ) ; 
END; 

R4  :=  R4  AND  MASK  SHLL  3; 
F45  :=  V(R4) ;  VR3  :=  F45; 
Rl  :=  VR3L0W  OR  BLANKMASK; 
VR3L0W  :=  Rl; 

Rl  :=  VR3HI  OR  BLANKMASK;  VR3HI  :=  Rl; 
MVC(7tWBUF(4) ,VR3);  WRITE; 
MVC(7,WBUF( 4J ,BLANK) ; 
END; 
END; 

Rl  :=  NEXTSYMBOL; 
IF  Rl  =  1  THEN 
BEGIN 

XR  :=  5;  ERROR; 
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END  ELSE 
BEGIN 

Rl   *=  Rl   ^Hll  "^ ' 

MVC(16,WBUF,"THE  INPUT  SYMBOL,"); 

F45    :=    V(RI} ;    VR3    :=    F45 ; 

Rl     :=    VR3L0W    OR    BLANKMASK;     VR3L0W    :=    Rl; 

Rl     :=    VR3HI    OR    BLANKMASK;    VR3HI     :=    Rl; 

MVC(7,WBUF(18) ,VR3 ) ; 

MVC( 17,WBUF(26) ,",     WILL    BE    IGNORED."); 

RO  :=  aWBUF;  WRITE;  MVC( 48, WBUF, BLANK) ; 
END; 

Rl  :=  STATENUM; 
IF  Rl  =  255  THEN 
BEGIN 
COMMENT   ERROR  OCCURRED  IN  A  READ  STATE; 

Rl  :=  SP  -  l;  SP  :=  Rl;  Rl  :=  Rl  SHLL  2; 

R2  :=  STATESTACK{R1)  AND  MASK; 

STATENUM  :=  R2; 
END  ELSE 
BEGIN 
COMMENT  ERROR  OCCURRED  IN  A  LOOK-AHEAD  STATE; 

SCAN;   COMMENT   SKIP  THE  NEXT  SYMBOL; 

Rl  :=  Rl  SHLL  1; 

R2    :=    SUCCSTATE(Rl)    AND    MASKFFOO; 

R3    :=    SUCCSTATECRl  )     AND    MASK; 

IC(R4,NUMT0P0P(R3) ) ;     R4    :=    R4    AND    MASK; 

IF  R2  =  512  AND  R4  -»=  255  THEN 
Rl  :=  STATENUM  OR  #00000300 

ELSE  Rl  :=  STATENUM  OR  #00000400; 

R2  :=  SP  SHLL  2;  STATEST ACK{ R2 )  :=  Rl; 
END; 
END;   COMMENT   END  OF  CASE  7; 
BEGIN   COMMENT   EXIT; 

Rl  :=  I;  TOKEN  :=  Rl;  Rl  :=  0; 
SP  :=  Rl;  STATESTACKIRI)  :=  Rl; 
STATENUM  :=  Rl;  GOTO  XXX; 
END; 
END;   COMMENT   END  OF  CASE{ STATETYPE) ; 
END; 
XXX:   R4  :=  SAVE4; 
END; 

PROCEDURE  MAIN(R4) ; 

BEGIN  INTEGER  SAVE4; 

SAVE4  :=  R4; 

INITIALIZE; 

ANALYZE; 

PRINTSUMMARY; 

R4  :=  SAVE4; 
END; 

MAIN; 
EXIT: 

MVC(17,WBUF,"END  OF  COMPILATION");  RO  :=  aWBUF;  WRITE; 

R2  :=  MEM(R13+4);  RO  :=  0; 

MEM(R2+16)  :=  RO;   COMMENT   SET  RETURN  CODE; 

END. 
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APPENDIX  C 
OS/360  OPERATING  SYSTEM  INTERFACE 


ICTL  1,71,18 

SPACE 
* 

*  PLIO  —  THE  RUNTIME  OS  INTERFACE  FOR  PROTOCOM        * 

*  * 

SPACE 

MACRO 
6EP       ENTER 

ENTRY  CEP 

USING  SEP, 15 

£;EP       STM  12, 2, save              save  REGISTERS 

L  12,=A($PL360I0)        ESTABLISH  ADDRESSING 

USING  $PL360I0,12 

DROP  15 

MEND 

SPACE 

MACRO 

EXIT 

LM  12, 2, SAVE              RESTORE  REGISTERS 

BR  14 

DROP  12 

MEND 

SPACE  2 
$PL360I0  CSECT 

SPACE 

LINELEN   EQU  132                     PRINTER  LINE  LENGTH 

LINESMAX  EQU  60                     PRINTER  LINES/PAGE 

PRINT  NOGEN 

SPACE 

*  GLOBAL  PROCEDURE  READ(R14) 

*  (RO)  =  BUFFER  ADDRESS 

*  (R13)  =  SAVE  AREA  ADDRESS 

*  (R14J  =  RETURN  ADDRESS 
READ      ENTER 

TM  SYSIN+DOPEN,OPENMASK   TEST  FOR  OPEN  DCB 

BO  READl 

LR  2,0 

OPEN  ( SYSIN, (INPUT))        ISSUE  OPEN 

LR  0,2 

READl     CLI  EOF,X«FF«              TEST  FOR  PREVIOUS 

*  END-OF-FILE 
BE  ERRPROC 

GET  SYSIN, (0)              GET  CARD 

READ2     CLI  EOFjO                  SET  CONDITION  CODE 
EXIT 
SPACE 

*  EOD  EXIT  ROUTINE 
USING  $PL360IO,12 

ENDRDR    MVI  EOF,X«FF»               EODAD  EXIT 

B  READ2 

DROP  12 

SPACE  2 

*  GLOBAL  PROCEDURE  WRITE(R14) 

*  tRO)  =  BUFFER  ADDRESS 

*  (R13)  =  SAVE  AREA  ADDRESS 

*  (R14)  =  RETURN  ADDRESS 
WRITE     ENTER 

LR  2,0 

TM  SYSOUT+DOPENjOPENMASK 

BO  WRITEl 
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WRITE2 


OPEN 

WRITEl    LR 
MVC 
MVC 
LA 
PUT 

* 

MVC 

CLI 

BNE 

MVI 

MVI 

MVC 

IC 

LA 

STC 

CLI 

BL 

MVI 

LM 

BR 

DROP 

SPACE 

*  GLOBAL  PROC 

*  (R14) 
ENTRY 
USING 

PAGE      MVI 
BR 

SPACE 
GLOBAL  PROC 
(ROJ 


WRITES 


* 
* 
* 
* 
PUNCH 


PUNCHl 


SYSOUT 
SYSIN 


SAVE 

ERRPROC 

EOF 

LINECNT 

CARRCONT 

ABUFF 


$PL360I0 

DOPEN 
OPENMASK 


(R13) 
(R14) 
ENTER 
TM 

BO 

LR 

OPEN 

LR 

PUT 

EXIT 

SPACE 

DCS 

DCB 


(SYSOUT 
IfO 

ABUFF+1(1 
ABUFFCl), 
0, ABUFF 
SYSOUT, 

0(1,1)  , 

CARRCON 
WRITE2 
LINECNT 
CARRCON 
KLINEL 
2,LINEC 
2,1(,2) 
2, LI  NEC 
LINECNT 
WRITES 
CARRCON 
12,2,SA 
14 
12 
2 
EDURE  PAG 
=  RETURN 
PAGE 
PAGE, 15 
CARRCON 
14 
2 
EDURE  PUN 
=  BUFFER 
=  SAVE  AR 
=  RETURN 


, (OUTPUT  )  ) 

STORE  BUFF 


32), 0( 1) 

CARRCONT 

(0) 

CARRCONT 
T,C» 1« 

,0 

T,C'  • 

EN, 1), 0(2) 

NT 

NT 
,LINESMAX 

T,C' 1« 

VE 


E(R14) 

ADDRESS 


MOVE 
CARRI 

G 
A 
S 


ER  ADDRESS  IN  Rl 

TO  OUR  BUFFER 

AGE  CONTROL  TO  ABUFF 

ET  NEXT  BUFFER 

DDRESS  IN  Rl 

ET  CONTROL  CHARACTER 


RESET  LINE  COUNT 

TRANSFER  BUFFER 
INCREMENT  LINE  COUNT 


TEST  FOR  FULL  PAGE 
SET  SKIP 


T,C»1' 


CH(R14) 

ADDRESS 
EA  ADDRESS 
ADDRESS 


SYSPUNCH+DOPEN, OPENMASK 

PUNCHl 

2,0 

(SYSPUNCH, (OUTPUT)) 

0,2 


SYSPUNCH, (0) 


PUT  CARD  IMAGE 


SYSPUNCH  DCB 


DS 

DC 

DC 

DC 

DC 

SPACE 

DS 

SPACE 

DCBD 

CSECT 

EQU 

EQU 

END 


PS,MACRF=PL,DDNAME=SYSPRINT,DEVD=DA, 

FBA,LRECL=LINELEN+1, BFTEK=S, ERGPT=ABE 

PS,MACRF=GM,DDNAME=SYSIN,DEVD=DA, 

FB,LRECL=8  0,BFTEK=S,ER0PT=ABE, 

ENDRDR 

PS,MACRF=PM,DDNAME=SYSPUNCH,DEVD=DA, 

F3,LRECL=80,BFTEK=S,ER0PT=ABE 


2 

DSORG= 

RECFM- 

DSORG= 

RECFM= 

EODAD= 

DSORG= 

RECFM= 

7F 

H«0' 

X«00» 

X'OO* 

C«l» 

CL133 


DCBOFLGS-IHADCB 
X«10' 


PRINTER  LINE  COUNT 
CARRIAGE  CONTROL 


BYTE  SET  BY  OPEN 
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